home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / biz / dopus / PlayHIP.lha / PlayHIP / arexx / Format.dopus5 next >
Text File  |  1997-08-05  |  2KB  |  73 lines
  1. /*MFS formater for Directory Opus 5.
  2.   By Sampo Kytömäki (Rib/SuLPu)
  3.   Email: sam@compost.fipnet.fi
  4.  
  5. $VER: Format.dopus5 0.01 (04.08.97)
  6.  
  7. Format module of DOpus 5.6 Doesn't support MFS ??!!!
  8. So here is a Lame format script for DOpus
  9. Someone please do better one....
  10.  
  11. Requires:
  12. MFS patched version of format command and DOpus 5.?
  13.  
  14. Tested whit DOpus 5.6 and MFS 2.1
  15.  
  16. To Do: (Up to you, cos i can't do none of these)
  17.  
  18.    Progress indigator 
  19.    Read Dostypes from file comments
  20.    Other big and small fixes 
  21.    Make it Replacement of format module
  22.    Convert it to C
  23.    
  24. Nothing of these have to be do if format module begins to support MFS!!!
  25. So send mail to Jonathan Potter & GBSoftware
  26.  
  27. History:
  28.  
  29.    0.01 04-08-1997
  30.    test
  31.  
  32. */
  33.  
  34. options results
  35. lf='0a'x
  36. source ='df0:'
  37. name='Empty'
  38.  
  39. ADDRESS DOPUS.1
  40.  
  41. main:
  42. dopus request '"Format disk in drive 'source'" _Amiga|_MS-DOS|AFS|AFS+_Diskspare|_Floppy|_Cancel'
  43. if rc = 1 then signal formatdos
  44. if rc = 2 then dostype = "MS-DOS"
  45. if rc = 3 then dostype = "AFS"
  46. if rc = 4 then dostype = "AFS+Diskspare"
  47. if rc = 5 then dostype = "Floppy"
  48. if rc = 0 then exit
  49. signal format
  50. exit
  51.  
  52. format:
  53. dopus getstring '"Please enter disk name" 256 'name' OK|Cancel'
  54. if dopusrc = 0 then exit
  55. name=result
  56. ADDRESS COMMAND 'Format DRIVE 'source' NAME 'name' NOICONS FS 'dostype''
  57. exit
  58.  
  59. formatdos:
  60. dopus getstring '"Please enter disk name" 256 'name' OK|Cancel'
  61. if dopusrc = 0 then exit
  62. name=result
  63. ADDRESS COMMAND 'Format DRIVE 'source' NAME 'name' FFS NOICONS'
  64. exit
  65.  
  66. exit:
  67. exit
  68.  
  69. /*               not used
  70. nodisk:
  71. dopus request '"Please insert disk in drive "'source'_OK|_Cancel'
  72. exit
  73. */